#****处：不明白为什么要有逗号
#0在数据中显示为0.0000e+00，需要处理吗
install.packages("openxlsx")
library(openxlsx)
#读取文件####
data1<-read.table(file = "D:\\R_DATA\\ADdata\\ADdata1.txt",sep = '\t',header = TRUE)#分隔符为制表符
data2<-read.csv(file = "D:\\R_DATA\\ADdata\\ADdata2.csv",sep = ',',header = TRUE,row.names = 1)#分隔符为','，使用rows.name规定行名为第1列
data3<-read.xlsx(xlsxFile = "D:\\R_DATA\\ADdata\\ADdata3.xlsx",rowNames = TRUE,colNames = TRUE)#分别使用rownames和colnames规定行列名信息
data4<-read.table(file="D:\\R_DATA\\ADdata\\ADdata4.txt",sep =' ',header = TRUE)#分隔符为space

#data.frame()方法-排序参考GPT4####
ORDER=function(data){
  data<-data[order(row.names(data)),]#使用order对data的列名进行排序，然后按排序切片****
  return(data)#将形参传递给实参
}
data1=ORDER(data1);data2=ORDER(data2);data3=ORDER(data3);data4=ORDER(data4)
data=data.frame(data1,data2,data3,data4)
